home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / mac / Business / Hi's Universal Saver / Dialog Director v0.6 / Examples / Pets+.as < prev    next >
Encoding:
Text File  |  1998-04-13  |  937 b   |  15 lines  |  [TEXT/ToyS]
  1. on PetDialog(petName, petType, petRelation)
  2.     set dItems to [┬
  3.         {class:push button, bounds:[40, 192, 98, 212], name:"OK"}, ┬
  4.         {class:push button, bounds:[168, 192, 226, 212], name:"Cancel"}, ┬
  5.         {class:text field, bounds:[72, 16, 259, 32], name bounds:[8, 16, 57, 32], name:"name:", value:petName}, ┬
  6.         {class:radio group, bounds:[26, 48, 130, 66], button offset:[120, 16], max down:4, contents:┬
  7.             ["cat", "dog", "weasel", "snake", "moose", "parakeet", "squirrel", "gila monster"], value:petType}, ┬
  8.         {class:radio group, bounds:[26, 142, 126, 158], button offset:[120, 16], max down:2, contents:┬
  9.             ["love", "hate", "who cares?", "get along"], value:petRelation}, ┬
  10.         {class:group box, name:" Relation with: ", bounds:[10, 132, 260, 180], style:secondary group}]
  11.     
  12.     return dd auto dialog {default:1, size:[270, 226], contents:dItems, name:"My Pets", style:movable modal} with greyscale
  13. end PetDialog
  14.  
  15. get my PetDialog("Abbey", 3, 1)